home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-20 / ken_mods.zip / TS940.13 < prev    next >
Text File  |  1990-09-05  |  1KB  |  81 lines
  1. TS940.13
  2.  
  3. start:
  4. org100h
  5. mainprocnear
  6. ècall bios_chk; com bios exit ?
  7. modi,offset channel
  8. argment:moval,[di]
  9. cmpal,CR
  10. jecmd_error;command error
  11. cmpal,' '
  12. jneport
  13. adddi,1
  14. loopargment
  15. port:
  16. pushds
  17. callchk_ch;channel check
  18. subal,'A'; get port idn
  19. movah,0
  20. movbx,ax; CX is port idn
  21. popds
  22. movdi,offset cmdline
  23. adddi,2
  24. get_cm
  25. moval,[di]
  26. adddi,1
  27. cmpal,CR
  28. jze_p;end
  29. cmpal,' '; skip space
  30. jzget_cmd
  31. calltoupr
  32. callouti
  33. loopget_cmd
  34. extprog:moval,0 
  35. movah,4ch
  36. int21h
  37. cmd_error:
  38. printcmd_e_msg
  39. jmpen_p
  40. chk_ch:;channel is A-F ?
  41. calltoupr; to upper
  42. cmpal,'A'
  43. jlno_cn_msg
  44. cmpal,'G'
  45. jgno_cn_msg
  46. ret
  47. toupr:
  48. cmpal,'Z'
  49. jlnot_mall
  50. subal,20h
  51. not_small:
  52. ret
  53. no_cn_msg:;no channel msg
  54. printno_cn
  55. end_p:
  56. moval,0; nomal end
  57. movah,4ch
  58. èbios_chk:
  59. movdx,00
  60. movah,04
  61. int14h
  62. cmpa0aa55h
  63. jneexit       ; bios no loaded
  64. ret
  65. exit:
  66. print no_bio
  67. jmpend_p
  68. outi:
  69. pushbx
  70. xordx,dx
  71. movdx,bx; load port_idn
  72. movah,01h; sirial out cmd for int 14
  73. int14h
  74. popbx
  75. ret
  76. mainendp
  77. codeends
  78. endmain
  79. RELAYE─ B┘ WB0SEN...&...n0kgx..gene...&...gene
  80.  
  81.